home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Examples / More Examples / Overlap&Tempo Demo < prev    next >
Encoding:
Text File  |  1998-10-26  |  1014 b   |  49 lines  |  [TEXT/ScoM]
  1. ; Here is a demo that shows how the effect of overlapping durations
  2.  
  3. (def-symbol
  4.    piano1 '(a b c d e f g h i j k l m n)
  5.    piano2 (reverse (symbol-of piano1))
  6. )
  7.  
  8. (def-length
  9.    piano1 '((1/16) (1/8t))
  10.    piano2 '((1/16) (1/8t))
  11. )
  12.  
  13. (def-duration
  14.    piano1 '(1/2 1/4 1/8)
  15.    piano2 '(1/4 1/8 1/2)
  16. )
  17.  
  18. (def-tonality
  19.    piano1 (activate-tonality (pentamajor c 4) (pentamajor d# 4))
  20.    piano2 (activate-tonality (pentamajor c 5) (pentamajor d# 5))
  21. )
  22.  
  23. (def-zone
  24.    piano1 '(2/1 2/1 1/1 1/1)
  25.    piano2 '(2/1 2/1 1/1 1/1)
  26. )
  27.  
  28. (def-channel
  29.    piano1 1
  30.    piano2 2
  31. )
  32.  
  33. ; Global tempo can now be given this way. This sets the MIDI file 
  34. ; tempo. If you extend it and define individual tempo patterns for
  35. ; each instrument, then the tempos will be calculated internally
  36. ; by SCOM. If you extend it with default definition, then this
  37. ; pattern determines the MIDI tempo events according to def-zone
  38. ; tempo definition.
  39.  
  40. (def-tempo 120)
  41.  
  42. (midiport :printer)
  43.  
  44. (compile-instrument-p "ccl;output:" "overlaps"
  45.    piano1
  46.    piano2
  47. )
  48.  
  49.